home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1994 May / 64er_Magazin_94-05_1994_Markt__Technik_de_Side_A.d64 / gosub x (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  209b  |  17 lines
  1. 8 rem usr-vektor
  2. 9 :
  3. 10 poke785,163:poke786,168
  4. 11 :
  5. 18 rem gosub gs
  6. 19 :
  7. 20 gs=40+int(rnd(0)*3)*10
  8. 30 gosub100:goto20
  9. 39 :
  10. 40 print"40  ";:return
  11. 50 print"50  ";:return
  12. 60 print"60  ";:return
  13. 97 :
  14. 98 rem goto gs
  15. 99 :
  16. 100 sys47083(gs),usr(0)
  17.